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**FILE®*1De*F ILINIWCB 


FFFFFFFFFF III! LL III] NN NN IIIT] wid WW CCCCCCCC + BBBBBBBB 

FFFFFFFFFF HII] LL III! NN NN III] will WW CcCCCCCC 88888888 

FF I] LL I] NN NN II did ww CC BB 8B 

FF I] LL I] NN II WW ww CC BB BB 

FF I] LL I] NNNN NN II ‘wid Ww CC BB BB 

FF I] LL I] NN NN I] (is Ww CC 88 BB 

FFFFFFFF I] LL I] NN NN NN I] le ww CC BBBBBBEBB 

FFFFFFFF I] LL I] NN NN NN I] Ww cc BBBBBBBB 

FF I] LL I] NN NNN I] WW Ww WW CC BB BB 

FF I] LL I] NN NNNN II Ww Ww Ww CC BB BB 

FF I] LL I] NN NN II WWwWW WWWW CC BB BB cove 
FF I] LL I] NN NN II WWW WWwWwWw CC BB BB eeee 
FF III] LLLLLLLLLL III NN NN III! Wie wad CCCCCCCC ~©BBBBBBBB cece 
FF III] LLLLLLLLLL HII! NN NN III! We WW CCCCCCCC BBBBBBBB eeee 
LL IIIIII SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIII] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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TITLE FI Siniuce - Initialize Window Control Block 
SIDENT 'V04=000'" 


AAA AAAARARASALELALLA AEE LALES EERE REESE TESTE REESE SE SECC SES eS eC eee cc eee ears | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® ® 
'® ® 
‘* ® 
** & 
** ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ie NW yAGCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
se ION OF THE ABOVE COPYRIGHT NOTICE. THIS $0 OFTWARE OP ANY. OTHER 
te THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
fe OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
*® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
** * 
® * 
** ca 
:* ® 
** ® 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: LSRARBRAAAALASASLELLLARALASEEALELALEELE SESSLER ELE SSS SESE SESE SARE SELES SESE LESS 
+e Facility: 
Executive, bootstrap support subroutines 
Abstract: 
a subroutine is called after a file has been opened by the 
FILEREAD routines to allocate ond load a window control block 
that describes the file. 


Environment: 


This routine executes in kernel mode 
-SBTTL Modification History 
Author: 
Peter H. Lipman 
Creation Date: 
23 September 1976 
Modified By: 


v01-001 LJK0209 Lawrence J. Kenah 21-Jun-1983 
The routine called MMGSINIWCB was removed from the original 
image activator system service, renamed to FILSINIWCB, and 
placed into its own module. 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSOSSSSO 
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69 . SUBTITLE Declarations 
86 : Include Files: 
64 SDYNDEF ; Dynamic structure type definitio 
65 SUCBDEF : Window control block definitions 
$8 i ; External Symbols: 
O88 3 DISABLE GLOBAL 
8088 4 ; External Routine 
44 rs » EXTERNAL EXESALONONPAGED 
B88 o 3; External Global Data Cell 
4 ~ EXTERNAL EXESGL_SYSWCBFL 
4 i 3 External Status Code 
0000 81 «EXTERNAL SS$_NORMAL ; Success status code 
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» SUBTITLE FILSINIWCB = Allocate and Load wCB 

Functional Description: 
When : file is opened by FILEREAD before the full file system is 
functional, this routine is called to allocate and load a window 


seperes block to describe the virtual to logical block mapping of that 


ae 


wns 
— 
re 
fs 
oe 
aor 
o-. 


Calling Sequence: 
JSB FILSINIWCB 

Input Parameters: 
Ri = Number of bytes in retrieval pointer buffer 
R2 = Address of retrieval pointer buffer 


Entries are each 8 bytes consisting of a 4-byte block count 
and a 4-byte logical block number 


R3 = UCB address 
Output Parameters: 
R2 = Window Control Block address if the routine returns successfully 
Implicit Output: 
The WCB is added to the Linked List of system WCBs 
Completion Codes: 
RO = SS$_NORMAL => WCB successfully allocated 
RO low bit clear indicates a failure return from EXESALONONPAGED 
Side Effects: 
The contents of R1 are destroyed. 
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0 
: 
g 
0000 § -PSECT YFILEREAD BYTE,EXE 
8 FILSINIWCB:: 
7) @& tc DIVL #8,R1 ; Count of 8-byte retrieval pointers 
Ha BB 00 0 PUSHR #*M<R1,R2,R3,R4,R5> ; Save input and working registers 
4 04 1 CLRL RG : anit tol tae count of 6-byte retrieval 
3; pointers 
50 3 Conor EEE SF Ci : 10$: ADDL3 #*XFFFE,(R2),RO 3 Get rounded block count 
5 OOOFFFF 8F C6 4 DIVL @*XFFFF,RO 3; Number of required 6-byte pointers 
23 8 C 5 ADDL BO eRe ; Accumulate the cgunt 
2 C $ ADOL “ Re 3; Address of next wbyte retrieval pointer 
€8 51 =F p SOBGTR R1,10$ ; Loop through them all 
51 54 06 C5 § MULL3 #6,R4,R1 ; Byte count for 6-byte pointers 


K 
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42000 FILS$I B - Allocate and Load WCB met 7 90:13:93 Leys SRCIT IL INIUCB OMAR: 1 oe 3) 
7 = oo ADOL #WCBSK_LENGTH,R1 ; Desired block size to allocate 
nites i F 18 JSB Gre XE SRLONONPAGED ; Allocate nonpaged dynamic memory 
—E50 € BLBC RO,100$ 3; Branch if failed to allocate 


Allocated size 
Address of allocated area 


DIVL3 #8,R1,R3 
MOVL R2,RO 


eee 

DD 

nN 
“wn 


Get truncated number of quadwords 
to fill with zeros 
Make a cop f' the WCB address 


52 0 
Ht mC 20$: CLRQ (RO) + Clear the 
FB 5 F5 SOBGTR R3,20$ (eight bytes at a time) 
08 A2 51 B80 MOVW R1 ,WCBSW_SIZE(R2) ; Save allocated WCB size 
12 90 MOVB  S*#DYNSC~WCB,- 
OA A2 WCB$B_ TYPE (R2) ; Set type field 
90 MOVB #<WCBSM_READ ! = : File accessed for reading 
WCBSM_NOTFCP>,- ; but not by FCP 
0B A2 05 WCBSB-ACCESS (R2) 
16 A2. 54 B80 MOVW R4,WCBSW_NMAP(R2) ; Retrieval pointer count 
CA2 06 INCL WCB$L_STVBN(R2) : Starting VBN is 1 
QO000000'GF 6 OE INSQUE (R2),G*EXESGL_SYSWCBFL ; Maintain a List of these WCBs 
54 BE 7D MOVQ (SP)+,R4 
; R4 = Number of 8-byte retrieval pointers 
; RS = Addr of first 8-byte retrieval pointer 
52 
52 30 C0 ADDL #WCBSW_P1_COUNT,R2 ; Starting addr in WCB to store 


; retrieval pointers 


The following double loop consists of an outer loop that iterates corpus 
the 8-byte retrieval pointers and an inner loop that makes as many 6-byte 
format retrieval pointers as necessary. Note that the 6-byte format is 
2-bytes of block count and 4-bytes of logical block number. The block count 
holds 2**16-1 blocks because 0 really means 0. 


30$: MOVZWL #*XFFFF,RS 
MOVQ (R5)+,R0 


4-byte block count 
Logical block number 


Se ee 
50 685) = 7D 


3; Maximum block count for 6-byte 
; retrieval pointers 


2 
»@ 
o 

“uu 


36 S33 91 40$ CMPL 8 RO 3; Use the minimum block count 
03 #18 BLEQU 50$ ; Branch if maximum is the smaller 
53 29 DO MOVL RO,R3 ; Maximum too big, use what's left 
Hf B 50$ MOVW R35, (R2)+ : Store block count 
¢ 1 p or Ry. (R2)+ 3 ane start 4 ren 
° ; Form nex 
50 33 C SUBL R3,RO 3 _and remaining block count 
fA 1 BNEQ 40$ ; Branch if more blocks to map 
DF 54 «=F SOBGTR R4,30$ ; Branch if more 8-byte retrieval pointers 


Ww 
o 
@ 
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POPR #*°M<R2,R3,R4,R5> 
; R2 = WCB address 


Restore saved registers 


j 
l 
0 
1 
§ 
4 
5 
5 
: 
4 
5 
6 
7 
8 
9 
0 
1 
é 
4 
? 
4 PUSHL R2 ; Save WCB address 
. 
1 
3 
4 
5 
6 
7 
8 
io] 
0 
1 
g 
4 
5 
5 
8 
9 
0 
1 
§ 
4 
5 
6 
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042000 FILSINIWCB = Allocate and Load wCB g-$EF =}38% 88: 133 3 Heys YS SACI LINIWCB. MAR; 1 - 
6 137 ; R3 = UCB address 
138 BISB2 #<WCBSM_ peta} le : File is completely mapped 
081 200 weesr CATHEDRAL>, ~ ; and should remain completely mapped, 
0081 01 weese SS(R2) ; even if the file is extended 
0085 T MOVL R tie BReuce<R2) : Set UCB address in window 
+ 9 0 MOVZWL S*#SS$_ NORMAL ,RO 3; Indicate successful completion 
; 8 RSB 3; and return 
3 4 88 ; Error exit with RO containing failure status code 
O80 88 POPR #*M<R1,R2,R3,R4,R5> ; Restore saved registers 
F 9 RSB 3; and return 
0090 10 
0090 11 END 
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FILSINIWCB 
Symbol table 


Initialization 32 
Command processing 


Pass 
— table sort 


ass 
Symbol table output 4 
Psect synopsis output 1 
Cross-reference output 8 
Assembler run totals 35 


the working $ Limit was 1200 pages. 

13551 bytes (27 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 230 non-local and 6 local symbols. 
211 source Lines were read in Pass 1, produc ing 13 object records in Pass 2 

9 pages of virtual memory were used to define & macros. 


SCOOOOOOOO 


OOOOOnMvimad 


COO" FS NO 


DYNSC_WCB = 00000012 
EXESACONONPAGED tetkkeee 
EXESGL_SYSWCBFL eeerenee YX 

EILSINTWCB 00000000 RG 

S$_NORMAL eeeereee = X 0 
WCBSB_ACCESS = 000 B 

CBSB_TYPE = 000 A 
WCBSK_LENGTH = 
WCBSL_ORGUCB = 1 
WCBSL_STVBN = 44 £ 
WCBSM_ CATHEDRAL = 00 6 
WCBSM_COMPLET = 4 BR bs 
WCBSM_NOTFCP = 4 
CBSM_READ = BRO oROS g 
WCBSW_NMAP = 00000016 
WCBSW_P1_COUNT = 00000030 
WCBSW_SIZE = 00000008 
dena nme em eee oe ee co 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 < 0.) 00 ¢ QO.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NO 
S$ 00000000 < 0.) O1¢ 1.) \NOPIC USR CON ABS LCL NOSHR’ EXE 
YF ILEREAD 00000090 ¢ 144.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSH EXE 
feeescee= semen encom aesren$ 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 


"SSEP=19B¢ 09:48:13 Este SacHPCINIuca. Mar: 


RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
RD WRT NOVEC BYTE 
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16-SEP-1984 00:1 AX/VMS Macro V04-00 Page 
VAX=11 Macro Run Statistics sets Pi 89:18: 3 YoYS S.SRCIF CINtw WCB.MAR;1 ° (3) 
ere newman oem aman Sm oo oo us oe 
~$259$DUA28: [55.0821 18.8 ee I oo fears eS 
“$255$DUA28: CSYSLIBISTARLET.MLB;2 
TOTALS (all Libraries) 


289 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 


H ; Macro library” statistics E 
Macro Library name Macros defined 
MACRO/LIS=LIS$:F ILINIWCB/OBJ=OBJ$:FILINIWCB MSRC$:FILINIWCB/UPDATE=(ENHS$:F ILINIWCB) +EXECML$/LIB 
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